home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 46 / Mobiclic46.iso / pc / DATA / SHARED / COMMUNS.CST / 00007_Script_variables et communs < prev    next >
Text File  |  2002-07-12  |  8KB  |  224 lines
  1. ---------------------------------------------------------------------
  2. --                     MARKETING APPLICATION
  3. --                   VARIABLES & INITIALIZATION
  4. --                   Gyorgy Gutierrez, Mai 2002
  5. ---------------------------------------------------------------------
  6.  
  7. ---------------------------------------------------------------------
  8. ---------------- "magazines Milan" global variables -----------------
  9. ---------------------------------------------------------------------
  10.  
  11. global gMyParent  -- le cd-rom dans lequel ce trouve l'application
  12. global gModule  -- le module en cours
  13. global gTestMode  -- mode test ou mode livraison
  14. global gNavMode  -- l'etat du mode de navigation
  15. global gLastMovies  -- la liste des derniers films visionΘes
  16. global gCodeEuro  -- code arial de l'euro soit pour PC ou pour Mac
  17. global gMagList  -- la liste des codes des magazines disponibles
  18. global gNomMagList  -- la liste des noms des magazines disponibles
  19. global gTexteMagList  -- la liste du texte descriptif des magazines disponibles
  20. global gCadeauList  -- la liste du cadeau attribuΘ a chaque magazine
  21. global gPrixLibEList  -- la liste des prix d'abonnement libertΘ (en Euros) pour chaque magazine
  22. global gTextePrixLibList  -- la liste du texte-prix de l'abonnement libertΘ pour chaque magazine
  23. global gPrixClasEList  -- la liste des prix d'abonnement classique (en Euros) pour chaque magazine
  24. global gTextePrixClasList  -- la liste du texte-prix de l'abonnement classique pour chaque magazine
  25. global gTypeAboChoisi  -- le type d'abonnement choisi
  26. global gListePrix
  27. global gPort  -- les frais de livraison d'une commande 
  28. global gListeCom  -- la liste des magazines choisis
  29. global gListeTotal
  30. global gSommeTotalE  -- la somme totale TTC de la commande (en Euros)
  31. global gChoixCadeau1  -- le cadeau choisi pour le premier abonnement 
  32. global gChoixCadeau2  -- le cadeau choisi pour le deuxieme abonnement 
  33. global gNewCad
  34. global gFichierMags  --la liste du numero du film descriptif de chaque magazine
  35. global gLiens  -- la liste des liens directes de chaque magazine vers d'autres magazines
  36. -- "anciens numeros" global variables
  37. global Prix  -- le prix de vente de chaque numero 
  38. global Port  -- les frais de livraison d'une commande 
  39. global ListeCom  -- la liste des numeros commandes
  40. global ListeQte  -- la liste des quantites de chaque numero commande
  41. global ListeTotal  -- la liste des prix d'achat de chaque numero commande (Qte*Prix)
  42. global SommeTotal  -- la somme totale TTC de la commande
  43. global gMagsDispo  -- la liste des tous les numeros disponibles
  44. global gMagsTotal  -- le nombre total des magazines du premier au dernier (non-dispos compris)
  45.  
  46. ---------------------------------------------------------------------
  47. ----------------- common application variables init -----------------
  48. ---------------------------------------------------------------------
  49.  
  50. on initGlobals
  51.   gMyParent = 1  -- 0:independent 1:mobiclic 2:toboclic
  52.   gModule = 0
  53.   gTestMode = 0  -- 0:normal mode  1:test mode  (no automatic printing)
  54.   gNavMode = #Normal
  55.   gLastMovies = []
  56.   gTypeAboChoisi = 0
  57.   gListeCom = []
  58.   -- mac/pc Euro display management 
  59.   if the machineType = 256 then
  60.     gCodeEuro = numToChar(128)
  61.   else
  62.     gCodeEuro = numToChar(219)
  63.   end if
  64.   --
  65.   set the floatPrecision = 2
  66. end
  67.  
  68. ----------------------------------------------------------------------
  69. -------------- "Milan magazines" module variables init ---------------
  70. ----------------------------------------------------------------------
  71.  
  72. on initProm
  73.   gModule = 1 --module magazines Milan
  74.   gMagList = []
  75.   gNomMagList = []
  76.   gTexteMagList = []
  77.   gCadeauList = []
  78.   gPrixLibEList = []
  79.   gTextePrixLibList = []
  80.   gPrixClasEList = []
  81.   gTextePrixClasList = []  
  82.   gListePrix = []
  83.   gPort = 0  
  84.   gListeTotal = []
  85.   gSommeTotalE = 0
  86.   gChoixCadeau1 = 0
  87.   gChoixCadeau2 = 0
  88.   gNewCad = 0
  89.   gFichierMags = []
  90.   gLiens = []
  91.   creerListes()
  92. end
  93.  
  94. ----------------------------------------------------------------------
  95. -- "magazines Milan" list creation from elements taken from mag.xls --
  96. ----------------------------------------------------------------------
  97.  
  98. on creerListes
  99.   codemags  = member("codeMags")
  100.   nomsmags  = member("nomsMags")
  101.   textemags = member("texteMags")
  102.   prixlibe = member("prixLibE")
  103.   texteprixlib = member("textePrixLib")
  104.   prixclase = member("prixClasE")
  105.   texteprixclas = member("textePrixClas")
  106.   cad = member("cad")
  107.   fichiermags  = member("fichierMags")
  108.   liens  = member("liens")
  109.   -- crΘation des listes
  110.   repeat with i=1 to codemags.line.count
  111.     append gMagList, symbol(codemags.line[i])
  112.     append gNomMagList, nomsmags.line[i]
  113.     append gTexteMagList, textemags.line[i]
  114.     append gPrixLibEList, value(prixlibe.line[i])
  115.     append gTextePrixLibList, texteprixlib.line[i]
  116.     append gPrixClasEList, value(prixclase.line[i])
  117.     append gTextePrixClasList, texteprixclas.line[i]
  118.     append gCadeauList, value(cad.line[i])
  119.     append gFichierMags, value(fichiermags.line[i])
  120.     mynbliens = liens.line[i].word.count
  121.     myliens=[]
  122.     repeat with j = 1 to mynbliens
  123.       append myliens, value(liens.word[j].line[i])
  124.     end repeat
  125.     append gLiens, myliens
  126.   end repeat
  127. end
  128.  
  129. ----------------------------------------------------------------------
  130. -------------- "anciens numeros" module variables init ---------------
  131. ----------------------------------------------------------------------
  132.  
  133. on initCom
  134.   gModule = 2 --module anciens numeros
  135.   Prix = 8.99
  136.   Port = 3
  137.   ListeCom = []
  138.   ListeQte = []
  139.   ListeTotal = []
  140.   SommeTotal = 0
  141.   initComUI() 
  142. end  
  143.  
  144. ---------------------------------------------------------------------
  145. --- initialization de tous les champs de l'interface utilisateur ----
  146. ---------------------------------------------------------------------
  147. on initComUI  
  148.   member("ListeCom").text = empty
  149.   repeat with i = 1 to 12
  150.     member("Qte" & string(i)).text = empty
  151.   end repeat
  152.   --on force le champ a passer en Arial pour les problemes
  153.   --de passage de PC a Mac. Charactere obligatoire dans le champ
  154.   --pour que ca marche
  155.   member("ListeTotal").text = " "
  156.   member("ListeTotal").font = "Arial"
  157.   member("SommeTotal").text = " "  
  158.   member("SommeTotal").font = "Arial"
  159.   member("ListeRef").text = empty
  160.   member("Nom").text = "Mon Nom"
  161.   member("PNom").text = "PrΘnom de l'enfant"
  162.   member("Adr").text = "mon adresse"
  163.   member("CodPos").text = "00000"
  164.   member("Ville").text = "Ma commune"
  165.   member("tel").text = "00 00 00 00 00"
  166.   member("Email").text = "mon@email"
  167.   member("Anni").text = "jj/mm/aa"
  168.   member("NumCB").text = "0000 0000 0000 0000"
  169.   member("DateCB").text = "mm/aa"
  170. end
  171.  
  172. ----------------------------------------------------------------------
  173. ----------------- memorisation des films prescedents -----------------
  174. ----------------------------------------------------------------------
  175.  
  176. on stopMovie
  177.   if gNavMode = #Normal then
  178.     gLastMovies.add(the movieName)
  179.   else
  180.     gNavMode = #Normal
  181.   end if
  182. end
  183.  
  184. ---------------------------------------------------------------------
  185. -------------- gestion d'acces aux ecrans d'abonnement --------------
  186. ---------------------------------------------------------------------
  187.  
  188. on abo
  189.   case gModule of
  190.     1 :
  191.       if gTypeAboChoisi <> 0 then
  192.         if gTypeAboChoisi = 1 then
  193.           acces "pan01_1"
  194.         else
  195.           acces "pan02_1"
  196.         end if  
  197.       end if
  198.     2 :
  199.       acces "pan01"
  200.   end case
  201. end
  202.  
  203. ---------------------------------------------------------------------
  204. ---------- gestion de l'affichage du bouton abonnement --------------
  205. ---------------------------------------------------------------------
  206. on affichAbo
  207.   case gModule of
  208.     1 :
  209.       if gTypeAboChoisi <> 0 then
  210.         sprite(117).member = member("abo")
  211.       else
  212.         sprite(117).member = member("no abo")
  213.       end if
  214.     2 :
  215.       if ListeCom.count <> 0 then
  216.         sprite(117).member = member("abo")
  217.       else
  218.         sprite(117).member = member("no abo")
  219.       end if
  220.   end case
  221. end
  222.  
  223.  
  224.